home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / VI navigator.rsrc / WTXT_0 < prev   
Text File  |  1993-09-28  |  1KB  |  44 lines
  1. On open TargetSess
  2.     Global palt InsertMode
  3.     Put false into InsertMode
  4.     If the number of sessions <> 0 then
  5.         If TargetSess is empty then
  6.             Set the targetSession of me to word 5 of the targetSession
  7.         Else
  8.             Set the targetSession of me to word 5 of targetSess
  9.         End if
  10.     Else
  11.         Answer "No session was found."
  12.         Close me
  13.     End if
  14. End open
  15.  
  16. On NormalMode
  17.     Global palt InsertMode
  18.     If InsertMode is true then
  19.         Put false into InsertMode
  20.         Transmit numToChar (27)
  21.     End if
  22. End NormalMode
  23.  
  24. On close
  25.     Global palt FindPaltId
  26.     If palt FindPaltId exists then
  27.         Close palt FindPaltId
  28.     End if
  29.     Pass close
  30. End close
  31.  
  32. On FindChange Tag, toFind, toChange
  33.     Switch
  34.         When tag = 1 then
  35.             Transmit numToChar (27) & "/" & toFind & cr
  36.         When tag = 2 then
  37.             Transmit numToChar (27) & ":s/" & toFind & "/" & toChange & cr
  38.         When tag = 3 then
  39.             Transmit numToChar (27) & ":s/" & toFind & "/" & toChange & cr
  40.             Transmit n
  41.         When tag = 4 then
  42.             Transmit numToChar (27) & ":g/" & toFind & "/s//" & toChange & cr
  43.     End switch
  44. End FindChange